home *** CD-ROM | disk | FTP | other *** search
/ ZAM 3 / ZAM 3.adf / Source / Witey.AMOS / Witey.amosSourceCode
Encoding:
AMOS Source Code  |  1990-12-11  |  2.4 KB  |  98 lines
  1. ' It's Alwite program routine
  2. '  
  3. '            By
  4. '
  5. '     Graham Stephenson
  6. '     (aka HAWK/ZIRCON)
  7. '
  8. ' Please note that this code is entirely my own, I have not knicked it from
  9. ' anywhere!  If you wish to use this code elsewhere, then all I ask is that
  10. ' you get permission from me first. I won't not let you use it, I just want
  11. ' to know where my stuff is being used!
  12. '
  13.  
  14. Dim NAME$(20),HANDLE$(20),GROUP$(20),STATUS(20)
  15.  
  16. Screen Open 0,640,200,2,Hires
  17. Colour 1,$FFF
  18.  
  19. For T=1 To 20
  20.    Read NAME$(T),HANDLE$(T),GROUP$(T)
  21. Next T
  22. Data "Graham Stephenson","Hawk","Zircon"
  23. Data "L. Gears","Gears","Zircon"
  24. Data "Phil Shotton","Shot","Zircon"
  25. Data "","",""
  26. Data "Zex","Frank Henneuse","Zircon"
  27. Data "Graham Stephenson","Hawk","Zircon"
  28. Data "L. Gears","Gears","Zircon"
  29. Data "","",""
  30. Data "Cosmic","Peter Davidson","Zircon"
  31. Data "Zex","Frank Henneuse","Zircon"
  32. Data "","",""
  33. Data "L. Gears","Gears","Zircon"
  34. Data "Shot","Phil Shotton","Zircon"
  35. Data "Cosmic","Peter Davidson","Zircon"
  36. Data "Zex","Frank Henneuse","Zircon"
  37. Data "Graham Stephenson","Hawk","Zircon"
  38. Data "","",""
  39. Data "Shot","Phil Shotton","Zircon"
  40. Data "Cosmic","Peter Davidson","Zircon"
  41. Data "Zex","Frank Henneuse","Zircon"
  42.  
  43. Reserve Zone 20
  44. For T=1 To 20
  45.    If Len(NAME$(T))>0
  46.       Wind Open T,0,T*8,76,1
  47.       Print NAME$(T);
  48.       Set Zone T,0,T*8 To 640,(T+1)*8
  49.    End If 
  50. Next T
  51. Curs Off 
  52.  
  53. Do 
  54.    X=Hzone(X Mouse,Y Mouse)
  55.    If X=0 Then XOLD=0
  56.    If X>0 and XOLD<>X
  57.       Window X
  58.       Inverse On 
  59.       Clw 
  60.       STATUS(X)=1
  61.       Set Curs L0,L0,L0,L0,L0,L0,L0,L0
  62.       Print NAME$(X);
  63.       XOLD=X
  64.    End If 
  65.  
  66.    For N=1 To 20
  67.       If STATUS(N)=1 and N<>X
  68.          Window N
  69.          Inverse Off 
  70.          Clw 
  71.          Set Curs L0,L0,L0,L0,L0,L0,L0,L0
  72.          Print NAME$(N);
  73.          Curs Off 
  74.          STATUS(N)=0
  75.       End If 
  76.    Next N
  77.  
  78.    If Mouse Key=1 and X<>0
  79.       Screen Open 2,640,200,2,Hires
  80.       Cls 0
  81.       Print "Information on: ";HANDLE$(X)
  82.       Print 
  83.       Print "Real Name: ";NAME$(X)
  84.       Print 
  85.       Print "Group Name: ";GROUP$(X)
  86.       Print 
  87.       Print "Press a key to continue ... "
  88.       Curs Off 
  89.       Wait Key 
  90.       Screen Close 2
  91.    End If 
  92. Loop 
  93.  
  94. ' This is the end! A quite small program really. Please note, that when the
  95. ' mouse is clicked, you could be running an external program, loading a new
  96. ' music module, choosing a database item ... 
  97.  
  98. '                                            Graham Stephenson 11-12-92